home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Netcracker Netscape Navigator / ProOne: Netcracker Netscape Navigator.iso / pc / nc / nct02070.geo / 00023.ls < prev    next >
Encoding:
Text File  |  1997-03-19  |  1.8 KB  |  92 lines
  1. on startMovie
  2.   Set_CDcounter(15)
  3.   Set_NEXT(1)
  4.   initLesson()
  5.   CheckForTagWd()
  6.   set the puppet of sprite 38 to 1
  7.   set the puppet of sprite 39 to 1
  8. end
  9.  
  10. on TheinitCursor
  11.   initCursorCastNum()
  12.   initCursorList(1)
  13.   set CursorCastNum to getCursor(2)
  14.   cursor([CursorCastNum, CursorCastNum + 1])
  15. end
  16.  
  17. on checkScreenStatus
  18.   CheckRollOver()
  19.   CheckSnakeStatus()
  20.   go(the frame)
  21. end
  22.  
  23. on BlinkNext
  24.   if (the timer > getTimer()) and not soundBusy(2) then
  25.     startTimer()
  26.     if the name of cast the castNum of sprite get_NEXTSprite() = "NEXT" then
  27.       set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT_E"
  28.     else
  29.       set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT"
  30.     end if
  31.   end if
  32. end
  33.  
  34. on GoNext
  35.   if not get_Disabled() then
  36.     sound stop 2
  37.     if Get_NEXT() = 1 then
  38.       go("t1")
  39.     else
  40.       if Get_NEXT() = 2 then
  41.         go("t2")
  42.       else
  43.         if Get_NEXT() = 3 then
  44.           go("t3")
  45.         else
  46.           GoNextMovie()
  47.           exit
  48.         end if
  49.       end if
  50.     end if
  51.     Set_NEXT(Get_NEXT() + 1)
  52.   end if
  53. end
  54.  
  55. on stopMovie
  56.   sound stop 1
  57.   unLoad()
  58.   setEmptyCursor()
  59. end
  60.  
  61. on GoNextMovie
  62.   PlaySound("GOSOUND.SO1")
  63.   SaveHilite()
  64.   Add_CDcounter(1)
  65.   set cdNum to Get_CDcounter()
  66.   set movieName to item cdNum of Get_CurrentSnakeScreens()
  67.   go("INIT" & Get_ScreenSubject(), movieName & ".GEO")
  68. end
  69.  
  70. on clickBtn theBtn, theSprite
  71.   global currBtnVis
  72.   set currBtnVis to theBtn
  73.   sound stop 2
  74.   puppetSprite(theSprite, 3)
  75.   repeat with i = 14 to 17
  76.     UpdateCursors(i, 3)
  77.   end repeat
  78.   set the castNum of sprite theSprite to the number of cast ("BTN" & theBtn & "_v")
  79.   UpdateCursors(theSprite, 0)
  80.   repeat with i = 19 to 20
  81.     UpdateCursors(i, 2)
  82.   end repeat
  83.   go("info-" & theBtn)
  84. end
  85.  
  86. on handleExit
  87.   go("reg mode")
  88.   repeat with i = 19 to 21
  89.     UpdateCursors(i, 0)
  90.   end repeat
  91. end
  92.